[#Part: CMP TallyShopFeatures Left]
Add : Line  : 	 Show_PartyDetails_Voucher
[Line :  Show_PartyDetails_Voucher]
Field : medium prompt, Show_PartyDetails_Voucher
Local : field : medium prompt : set as : "Show Party Details in Voucher Screen ?"
Local : Field : Medium Prompt : width : 35
space top : 0.2 cm
[Field :  Show_PartyDetails_Voucher]
Use : Logical field
Storage : Show_PartyDetails_Voucher
[System: formula]
Show_PartyDetails_Voucher : $Show_PartyDetails_Voucher:company:##svcurrentcompany
HVShow_PartyDetails_Voucher : $Show_PartyDetails_Voucher:voucherType:##SVVoucherType
[System: udf]
Show_PartyDetails_Voucher : Logical	:1451
[#Part: VTYP Main Left]
add : Parts  : At End : HVShow_PartyDetails_Voucher
[Part: HVShow_PartyDetails_Voucher]
Line: HVShow_PartyDetails_Voucher
Local: Field: LongPrompt: Width	:@@LongWidth + 5
[Line: HVShow_PartyDetails_Voucher]
Space Top: 2 mm
Field: Long prompt,HVShow_PartyDetails_Voucher
Local : field : Long prompt : set as : "Show Party Details in Voucher Screen ?"		
Invisible: not @@Show_PartyDetails_Voucher
[Field: HVShow_PartyDetails_Voucher]
Use: logical field
Storage: Show_PartyDetails_Voucher
[#Form: VCHBasic InvoiceMode]
Add:Option:Show_PartyDetails_Voucher : @@Show_PartyDetails_Voucher AND @@HVShow_PartyDetails_Voucher
[!Form:Show_PartyDetails_Voucher]
Add:Part:After:EI SalesCurrBalanceInfo: Vch_PartyDetails
[Part:Vch_PartyDetails]
Line : VCH_LedgerAddress
Line : VCH_LedgerState
Line : VCH_ContactPerson
Option: Small size Part : Yes
Local: Field:Default : Skip:Yes
[Line : VCH_LedgerAddress]
Field : medium prompt, VCH_LedgerGroup
Local : field : medium prompt : set as 	: "Address"
Local : Field : Medium Prompt : width 	: 14.5
Space Top:.1
Local:Field:VCH_LedgerGroup : Full Width:Yes
Local:Field:VCH_LedgerGroup : Set as:$$FullList:PartyAddress:$Address
[Line :  VCH_LedgerState]
Field : Long prompt, VCH_LedgerGST
Local : field : Long prompt : set as 	: "State Name"
Local : Field : Long Prompt : width 	: 14.5
Field : Short prompt, VCH_LedgerMobile
Local : field : Short prompt : set as 	: "PIN Code"
Local : Field : Short Prompt : width 	: 7
Field : medium prompt, VCH_ContactPerson
Local : field : medium prompt : set as 	: "Country"
Local : Field : Medium Prompt : width 	: 6
Space Bottom:.1
Local:Field:VCH_LedgerGST : Set as: $LedStateName:Ledger:$PartyLedgerName
Local:Field:VCH_LedgerMobile : Set as: $PINCode:Ledger:$PartyLedgerName
Local:Field:VCH_ContactPerson : Set as: $CountryofResidence:Ledger:$PartyLedgerName

Field : medium prompttt, NameField
Local : field : medium prompttt : set as : "PAN"
Local : Field : Medium prompttt : width : 6

Field : Simple prompt, VCH_LedgerState
Local : field : Simple prompt : set as 	: "GSTI No"
Local : Field : Simple Prompt : width 	: 6

Field : medium prompttt2, VCH_LedgerState2
Local : field : medium prompttt2 : set as 	: "RegistrationType"
Local : Field : medium prompttt2 : width 	: 12
    
Space Bottom:.1
Local:Field:VCH_LedgerState : Set as: $vPartyGSTIN:Ledger:$PartyLedgerName
Local:Field:VCH_LedgerState : Width:22

Local:Field:NameField : Set as: $IncomeTaxNumber:Ledger:$PartyLedgerName
Local:Field:NameField 			: Width     : 15

[#Object:Ledger]
vPartyGSTIN  : $LedGSTRegDetails[Last].GSTIN
vGSTRegistrationType	: $LedGSTRegDetails[Last].GSTRegistrationType

[Field: Medium prompttt2]
Align       : Prompt
Width       : @@MediumWidth
Skip        : Yes
Fixed       : Yes
[Field :  VCH_LedgerState2]
Use 	: Name field
Skip	: Yes
Set Always:Yes
Set as	: $vGSTRegistrationType:Ledger:$PartyLedgerName
Width	: 15
    
[Line : VCH_ContactPerson]
Field : medium prompt, VCH_ContactPerson
Local : field : medium prompt : set as	: "Contact Person"
Local : Field : Medium Prompt : width : 14.5
Field : Short prompt, VCH_LedgerMobile
Local : field : Short prompt : set as : "Mobile No"
Local : Field : Short Prompt : width : 7
Field : Long prompt, VCH_LedgerGST
Local : field : Long prompt : set as : "Phone"
Local : Field : Long Prompt : width : 6
Space Bottom:.1
Local:Field:VCH_ContactPerson : Set as: $LedgerContact:Ledger:$PartyLedgerName
Local:Field:VCH_LedgerMobile: Set as: $LedgerMobile:Ledger:$PartyLedgerName
Local:Field:VCH_LedgerGST : Set as	: $LedgerPhone:Ledger:$PartyLedgerName
Field : Medium prompttt, VCH_LedgerEmail
Local : field : Medium prompttt : set as : "Email"
Local : Field : Medium prompttt : width : 6
Local : Field:VCH_LedgerEmail : Set as: $EMail:Ledger:$PartyLedgerName
Field : Medium promptttt, VCH_LedgerGroup
Local:Field:VCH_LedgerGroup : Full Width:Yes
Local : field : Medium promptttt : set as 	: "Group"
Local : Field : Medium promptttt : width 	: 6
[Field: Medium prompttt]
Use:Medium prompt
[Field: Medium promptttt]
Use:Medium prompttt
[Line : VCH_LedgerGST]
Field : Long prompt, VCH_LedgerGST
Local : field : Long prompt : set as : "GST No"
Local : Field : Long Prompt : width : 14.5
Field : Short prompt, VCH_LedgerMobile
Local : field : Short prompt : set as : "Email"
Local : Field : Short Prompt : width : 7
Field : medium prompt, VCH_ContactPerson
Local : field : medium prompt : set as : "PAN"
Local : Field : Medium Prompt : width : 6
Space Bottom:.1
Local:Field:VCH_LedgerGST : Set as: $vPartyGSTIN:Ledger:$PartyLedgerName
Local:Field:VCH_LedgerMobile : Set as: $EMail:Ledger:$PartyLedgerName
Local:Field:VCH_ContactPerson: Set as: $IncomeTaxNumber:Ledger:$PartyLedgerName
[#Object:Ledger]
vPartyGSTIN :$LedGSTRegDetails[Last].GSTIN	
[Field :  VCH_LedgerEmail]
Use : Name field
Skip: Yes
Set Always:Yes
Set as	: $Parent:Ledger:$PartyLedgerName
Width: 15
[Field :  VCH_LedgerGroup]
Use : Name field
Skip: Yes
Set Always:Yes
Set as: $Parent:Ledger:$PartyLedgerName
Width: 15
[Field :  VCH_ContactPerson]
Use : Name field
Skip: Yes
Set Always:Yes
Set as: $LedgerContact:Ledger:$PartyLedgerName
Width: 15	
[Field :  VCH_LedgerMobile]
Use : Name field
Skip: Yes
Set Always:Yes
Set as: $LedgerMobile:Ledger:$PartyLedgerName
Width: 15
[Field :  VCH_LedgerState]
Use : Name field
Skip: Yes
Set Always:Yes
Set as: $LedStateName:Ledger:$PartyLedgerName
Width: 15
[Field :VCH_LedgerGST]
Use : Name field
Skip: Yes
Set Always:Yes
Set as	: $vPartyGSTIN:Ledger:$PartyLedgerName
Width: 15